#!/usr/bin/perl
#$a="123";
#$a=~/(2)/;
#print "$1\n";
$name="abxycd";
($m1,$m2)=($name!~/(ab).*(c)/);
#$name=~/(ab).*(c)/;
#$m1=$1;
print "m1=$m1,m2=$m2,$&,$`,$'\n";

open(F,"tt.txt");
#undef $/;
#@ch=split(/(j)/,<F>);
#print scalar(@ch)."\n";
#@ch=map($_.":",@ch);
#print "@ch\n";
#}
while(<F>){
  print if (/if/../hi/);
}

$n = "   49 here";
$n =~ s/ /0/g;
print $n;

$l="3,4,5,9,120";
while ($l=~/,?(\d+)/g) {
    print "Found number $1\n";
}
